home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / Rexx / Export_ADM.rexx next >
OS/2 REXX Batch file  |  2000-01-01  |  7KB  |  232 lines
  1. /*
  2. ** Exportieren von Adressen aus MT-RechnungIII in ADM
  3. ** $VER: Export_ADM.rexx V1.00 (19.12.99)
  4. */
  5.  
  6. PARSE ARG ARexxPort;
  7.  
  8. ADDRESS VALUE ARexxPort;
  9. OPTIONS RESULTS;
  10.  
  11. LF                    = '0a'x;                            /* Zeilenvorschub                */
  12.  
  13. RC = 0;
  14.  
  15. /* Oberfläche sperren */
  16. LOCKGUI;
  17.  
  18. IF ~show(ports, "ADM.1") THEN
  19.     DO;
  20.         ES_TITLE                = "Warnung";
  21.         ES_TEXTFORMAT        = "ADM ist nicht aktiv, bitte starten sie dieses" || LF || "und versuchen Sie es erneut";
  22.         ES_GADGETFORMAT    = "Abbrechen";
  23.         EASY_REQUEST;
  24.         RC = 1;
  25.     END;
  26.  
  27. IF RC = 0 THEN
  28.     DO;
  29.         ES_TITLE                = "Achtung!!!!";
  30.         ES_TEXTFORMAT        = "Es werden alle Adressen aus" || LF || "MT-Rechnung III exportiert!" || LF || LF;
  31.         ES_TEXTFORMAT        = ES_TEXTFORMAT || "Es erfolgt keine Prüfung, ob" || LF ||  "die Adressen bereits in ADM" || LF || "existieren" || LF || LF;
  32.         ES_TEXTFORMAT        = ES_TEXTFORMAT || "Wollen Sie trotzdem fortfahren?";
  33.         ES_GADGETFORMAT    = "Ok|Abbrechen";
  34.         EASY_REQUEST;
  35.         IF MTR_RESULT = 0 THEN
  36.             DO;
  37.                 FREEGUI;
  38.                 EXIT;
  39.             END;
  40.         /* Länder einlesen */
  41.         NUMBER_COUNTRY;
  42.         AnzLaender = MTR_RESULT;
  43.  
  44.         DO i = 1 to AnzLaender;
  45.             GET_COUNTRY i;
  46.             Land.Name.i = COUNTRY.NAME;
  47.         END;
  48.  
  49.         ADDRESS "ADM.1";
  50.         ACTIVATEFIRST;
  51.  
  52.         DO WHILE(RESULT > 0);
  53.  
  54.             GETADDRESS ADM
  55.  
  56.             ADDRESS VALUE ARexxPort;
  57.             IF RESULT != 0 THEN
  58.                 DO;
  59.                     ES_TITLE                = "Warnung";
  60.                     ES_TEXTFORMAT        = "ADM bringt einen Fehler" RESULT "beim lesen!";
  61.                     ES_GADGETFORMAT    = "Abbrechen";
  62.                     EASY_REQUEST;
  63.  
  64.                     FREEGUI;
  65.                     EXIT;
  66.                 END;
  67.             NEW_ADDRESS;
  68.             MTR_Adressnummer = MTR_RESULT;
  69.  
  70.             SELECT;
  71.                 WHEN ADM.SALUTATION = "Fräulein" THEN
  72.                     DO;
  73.                         ADDRESS.SALUTATION = 1;
  74.                     END;
  75.                 WHEN ADM.SALUTATION = "Frau" THEN
  76.                     DO;
  77.                         ADDRESS.SALUTATION = 2;
  78.                     END;
  79.                 WHEN ADM.SALUTATION = "Herr" | ADM.SALUTATION = "Herrn" THEN
  80.                     DO;
  81.                         ADDRESS.SALUTATION = 3;
  82.                     END;
  83.                 WHEN ADM.SALUTATION = "Familie" THEN
  84.                     DO;
  85.                         ADDRESS.SALUTATION = 4;
  86.                     END;
  87.                 OTHERWISE
  88.                     DO;
  89.                         ADDRESS.SALUTATION = 0;
  90.                     END;
  91.             END;
  92.  
  93.             ADDRESS.PRENAME        = ADM.FIRSTNAME;
  94.             ADDRESS.SURNAME        = ADM.LASTNAME;
  95.             ADDRESS.COMPANY1        = ADM.COMPANY;
  96.             ADDRESS.STREET            = ADM.ADDRESS1;
  97.             ADDRESS.ZIP                = ADM.POSTCODE;
  98.             ADDRESS.CITY            = ADM.CITY;
  99.             ADDRESS.STATE_NUMBER    = 0;
  100.  
  101.             SELECT;
  102.                 WHEN ADM.COUNTRY    = "Germany" | ADM.COUNTRY = "" THEN
  103.                     ADM.COUNTRY        = "Deutschland";
  104.                 WHEN ADM.COUNTRY    = "Austria" THEN
  105.                     ADM.COUNTRY        = "Österreich";
  106.                 WHEN ADM.COUNTRY    = "Swiss" THEN
  107.                     ADM.COUNTRY        = "Schweiz";
  108.                 OTHERWISE
  109.                     NOP;
  110.             END;
  111.             j = 0;
  112.             DO i = 1 to AnzLaender WHILE(j = 0);
  113.                 IF ADM.COUNTRY = Land.Name.i THEN
  114.                     j = i;
  115.             END;
  116.             IF j = 0 THEN
  117.                 DO;
  118.                     NEW_COUNTRY;
  119.                     AnzLaender = MTR_RESULT;
  120.                     i = AnzLaender;
  121.                     COUNTRY.NAME        = ADM.COUNTRY;
  122.                     SELECT;
  123.                         WHEN COUNTRY.NAME = "Deutschland" THEN
  124.                             DO;
  125.                                 COUNTRY.SYMBOL                    = "D-";
  126.                                 COUNTRY.PHONE_HOME            = "0";
  127.                                 COUNTRY.PHONE_FOREIGN        = "00";
  128.                                 COUNTRY.PHONE_FROMFOREIGN    = "49";
  129.                                 COUNTRY.STATE.0                = "Baden-Würtemberg"
  130.                                 COUNTRY.STATE.1                = "Bayern";
  131.                                 COUNTRY.STATE.2                = "Berlin";
  132.                                 COUNTRY.STATE.3                = "Brandenburg";
  133.                                 COUNTRY.STATE.4                = "Bremen";
  134.                                 COUNTRY.STATE.5                = "Hamburg";
  135.                                 COUNTRY.STATE.6                = "Hessen";
  136.                                 COUNTRY.STATE.7                = "Mecklenburg-Vorpommern";
  137.                                 COUNTRY.STATE.8                = "Niedersachsen";
  138.                                 COUNTRY.STATE.9                = "Nordrhein-Westfalen";
  139.                                 COUNTRY.STATE.10                = "Rheinland-Pfalz";
  140.                                 COUNTRY.STATE.11                = "Saarland";
  141.                                 COUNTRY.STATE.12                = "Sachsen";
  142.                                 COUNTRY.STATE.13                = "Sachsen-Anhalt";
  143.                                 COUNTRY.STATE.14                = "Schleswig-Holstein";
  144.                                 COUNTRY.STATE.15                = "Thüringen";
  145.                             END;
  146.                         WHEN COUNTRY.NAME = "Österreich" THEN
  147.                             DO;
  148.                                 COUNTRY.SYMBOL                    = "A-";
  149.                                 COUNTRY.PHONE_HOME            = "0";
  150.                                 COUNTRY.PHONE_FOREIGN        = "00";
  151.                                 COUNTRY.PHONE_FROMFOREIGN    = "43";
  152.                                 COUNTRY.STATE.0                = "Burgenland"
  153.                                 COUNTRY.STATE.1                = "Kärnten";
  154.                                 COUNTRY.STATE.2                = "Niederösterreich";
  155.                                 COUNTRY.STATE.3                = "Oberösterreich";
  156.                                 COUNTRY.STATE.4                = "Salzburg";
  157.                                 COUNTRY.STATE.5                = "Steiermark";
  158.                                 COUNTRY.STATE.6                = "Tirol";
  159.                                 COUNTRY.STATE.7                = "Vorarlberg";
  160.                                 COUNTRY.STATE.8                = "Wien";
  161.                             END;
  162.                         WHEN COUNTRY.NAME = "Schweiz" THEN
  163.                             DO;
  164.                                 COUNTRY.SYMBOL                    = "CH-";
  165.                                 COUNTRY.PHONE_HOME            = "0";
  166.                                 COUNTRY.PHONE_FOREIGN        = "00";
  167.                                 COUNTRY.PHONE_FROMFOREIGN    = "41";
  168.                                 COUNTRY.STATE.0                = "Aargau"
  169.                                 COUNTRY.STATE.1                = "Appenzell Außer-Rhoden";
  170.                                 COUNTRY.STATE.2                = "Appenzell Inner-Rhoden";
  171.                                 COUNTRY.STATE.3                = "Basel-Land";
  172.                                 COUNTRY.STATE.4                = "Basel-Stadt";
  173.                                 COUNTRY.STATE.5                = "Bern";
  174.                                 COUNTRY.STATE.6                = "Freiburg";
  175.                                 COUNTRY.STATE.7                = "Genf";
  176.                                 COUNTRY.STATE.8                = "Glarus";
  177.                                 COUNTRY.STATE.9                = "Graubünden";
  178.                                 COUNTRY.STATE.10                = "Luzern";
  179.                                 COUNTRY.STATE.11                = "Neuenburg";
  180.                                 COUNTRY.STATE.12                = "Sankt Gallen";
  181.                                 COUNTRY.STATE.13                = "Schaffhausen";
  182.                                 COUNTRY.STATE.14                = "Schwyz";
  183.                                 COUNTRY.STATE.15                = "Solothurn";
  184.                                 COUNTRY.STATE.16                = "Tessin";
  185.                                 COUNTRY.STATE.17                = "Thurgau";
  186.                                 COUNTRY.STATE.18                = "Unterwalden Nidwalden";
  187.                                 COUNTRY.STATE.19                = "Unterwalden Obwalden";
  188.                                 COUNTRY.STATE.20                = "Uri";
  189.                                 COUNTRY.STATE.21                = "Waadt";
  190.                                 COUNTRY.STATE.22                = "Wallis";
  191.                                 COUNTRY.STATE.23                = "Zug";
  192.                                 COUNTRY.STATE.24                = "Zürich";
  193.                             END;
  194.                         OTHERWISE
  195.                             NOP;
  196.                     END;
  197.                     SET_COUNTRY AnzLaender;
  198.                     ADDRESS.COUNTRY_NUMBER    = AnzLaender - 1;
  199.                 END;
  200.             ELSE
  201.                 DO;
  202.                     ADDRESS.COUNTRY_NUMBER    = j - 1;
  203.                 END;
  204.  
  205.             IF LENGTH(ADM.BIRTHDAY) = 10 THEN
  206.                 ADDRESS.BIRTHDAY    = SUBSTR(ADM.BIRTHDAY, 7, 4) || SUBSTR(ADM.BIRTHDAY, 4, 2) || SUBSTR(ADM.BIRTHDAY, 1, 2);
  207.             ELSE IF LENGTH(ADM.BIRTHDAY) = 8 THEN
  208.                 ADDRESS.BIRTHDAY    = "19" || SUBSTR(ADM.BIRTHDAY, 7, 2) || SUBSTR(ADM.BIRTHDAY, 4, 2) || SUBSTR(ADM.BIRTHDAY, 1, 2);
  209.             ADDRESS.PHONE            = ADM.TELEPHONE;
  210.             ADDRESS.EMAIL.0        = ADM.EMAIL1;
  211.             ADDRESS.EMAIL.1        = ADM.EMAIL2;
  212.             ADDRESS.FAX                = ADM.FAX;
  213.  
  214.             ADDRESS.BANK_CODE_NUMBER    = ADM.BANKCODE;
  215.             ADDRESS.BANK_NAME        = ADM.BANKNAME;
  216.             ADDRESS.ACCOUNT        = ADM.ACCOUNT;
  217.  
  218.             ADDRESS.ADDITIONAL_TEXT    = ADM.REMARK1;
  219.  
  220.             SET_ADDRESS MTR_Adressnummer;
  221.  
  222.             ADDRESS "ADM.1";
  223.             ACTIVATENEXT;
  224.         END;
  225.     END;
  226.  
  227. /* Oberfläche freigeben */
  228. ADDRESS VALUE ARexxPort;
  229. FREEGUI;
  230.  
  231. EXIT;
  232.